10 FORX=1TO25:READU:POKE54271+X,U:NEXT
20 DATA90,12,155,12,32,184,171,50,60,155,15,64,186,171,20,12,90,15,32,169
30 DATA192,0,0,0,15
40 POKE54276,33:POKE54283,65:POKE54290,33:FORI=0TO3740:NEXT
50 POKE54276,32:POKE54283,64:POKE54290,32:FORI=0TO2112:NEXT
60 FORX=0TO23:POKE54272+X,0:NEXT